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2. 



ABSTRACT 



Maindec 710 incorporates two separate test programs. The first tests the performance of all 
the lOT instructions associated with the reader and its connections to the program interrupt. It reads a 
loop of tape containing alternate characters of I's and O's, first in alphanumeric, then in binary mode. 

The second test reads a loop of tape containing the sequence 1-377 repeated three times. 
This program tests only the accuracy of reading; the interrupt is not used, and the flags are assumed to be 
working. 



3. 



3.1 



REQUIREMENTS 



Storage 



Maindec 710 occupies memory locations 0-7 and 20 - 1325. It requires that the RIM Loader 
be in memory. 

3.2 Subprograms and/or Subroutines 

Maindec 710 uses two library subroutines: 

Teletype Output Package (Digital-7-1 0-0) 
Octal Print Subroutine (Digital -7- 14-0) 

Both subroutines are included in the Maindec 710 Funny Format binary tape provided. The 
ASCII tapes of the two subroutines are not supplied. 



3.3 



3.4 



Equipment 

Standard PDP-7 with paper tape reg^er and punch. 

Miscellaneous 



4. 

4.1 
4.1.1 
4.1.2 
4.1.3 

4.3 

4.3.1 

4.3.2 



Tapes supplJed: 

ASCII (Test program only) ^ y\y^ 

Funny Format binary Ma^ ^'^^^ 

USAGE 



u^ 



Loading 

Place the FF binary tape in the reader. 
Set the ADDRESS switches to (1)7770. 
Press START. 



M' 



Switch Settings 
Loading Address: 
Starting Addresses 
Section 1: 

Section 2: 



(1)7770 



100 
140 

200 
375 



(To punch test loop) 
(To test reader) 

(To punch test loop) 
(To test reader) 
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4.3.3 Other Switch Settings 

The settings given apply to both sections of the test program, 



Switch Setting Function 

ACSq 

ACS^ 

ACS- ,_ The setting determines the speed at which the reader operates: 

the higher the number in the switches, the slower the rate 
used down to a minimum of 3 cps. 



Down 


Halt on error 


Up 


No halt on error 


Down 


Print error messages 


Up 


Do not print message 



4.4 Start up and/or Entry 

4.4.1 Section 1: Maximum Noise Test 

Set the ADDRESS switches to 00100 and press START. The program title will be printed on 
the teleprinter: 

SECTION 1 TEST. 

POSITION TAPE IN READER. 

ACSO DOWN FOR HALTS, UP FOR NONE. 

ACSl DOWN FOR PRINTING, UP FOR NONE. 

ACS2-17 FOR SPEED CONTROL. 

CHARACTER 
READ EXPECTED 

The computer will stop with the AC and link cleared. 

Remove the test tape from the punch bin, and make c bop by overlapping the blank ends of 
the tape. 

Place the test loop in the reader so that the blank section falls under the read heads. Put 
the redder arm down . 

Set the AC switches as desired (see Section 4.3.3) and press CONTINUE. The program 
will read the loop and continue until an error is encountered or until the operator stops the computer. 

It is not necessary to punch a new loop every time the test is run. If a loop has already 
been made, place it in the reader, set the ADDRESS switches to 140, and press START. The title and 
instructions will be printed, and the computer will halt. Proceed as outlined above. 

4.4.2 Section 2: Numeric Sequence Test 

Set the ADDRESS switches to 00200 and press START. The title will be printed: 
SECTION 2 PUNCH. 
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The test tape is punched, and the title and instructions for the test are printed. These are 
identical to the instructions for Section 1, except for the first line, which reads: 

SECTION 2 TEST. 

The computer halts with the AC and link clear. Make a loop of the test tape by overlapping 
blank ends as before, and place it in the reader with the blank section under the read heads. Put the 
reader arm down. Set the AC switches as desired, and press CONTINUE. 

The test will run until an error is encountered, or until the operator stops the computer. 

As in Section 1, the test tape can be used over again. If the loop has been prepared, place 
it in the reader as before. Set the ADDRESS switches to 00375, and press START. The title and instruc- 
tions are printed, and the procedure is as described above. 



4.5 Errors in Usage 

On all error halts, the link is set to 1 . 

Error E01-E05 will halt only if ACS« is down. 

Error: EOT 

Message: CAP DID NOT CLEAR FLAG. 

C(MA): 00153 

C(AC): I/O status 

Cause: The CAP instruction failed to clear the reader flag. Since the flag is not set by 

the program up to this point, the error implies that the flag is permanently on; 

otherwise, it would have been cleared when ihe START button was pressed to 

start the program. 
Recovery: Press CONTINUE. The test will proceed from the point of error. 

Error: E02 

Message: RSP SKIPPED ON CLEARED FLAG. 

C(MA): 00047 

C(AC): I/O status 

Cause: The reader flag was clear; nevertheless the RSF instruction skipped. 

Recovery: Press CONTINUE. The test will proceed from the point 6f error. 

Error: E03 

Message: RSA DID NOT CLEAR FLAG. 

or 
RSB DID NOT CLEAR FLAG. 

C(MA): 00226 

C(AC): I/O status 

Cause: In both cases, the reader select instruction failed to clear the reader flag. This 

may imply the same thing as EOl, above, unless it is clear that the tape has been 
read at least in part, in which case this is not likely to be a systematic failure. 

Error: E04 

Message: RRB DID NOT CLEAR FLAG. 

C(MA): 00246 

C(AC): I/O status 

Cause: Again, the flag was unaffected by an associated lOT. 

Recovery: Press CONTINUE. The test will proceed from the point of error. 
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Error: 

Message: 

C(MA): 

C(AC): 

Cause: 

Recovery: 



Error: 

Message: 

C(MA): 

C(AC): 

Cause: 

Recovery: 



Error i 

Message: 

C(AAA): 

C(AC): 

Cause: 



Recovery: 



Error: 

Message: 

C(MA): 

C(AC): 

Cause: 



Recovery: 



EOS 

RSF DID NOT SKIP WHEN FLAG WAS SET. 

00032 

I/O status 

This is the other possible skip error. In this case, the RSF failed to skip even 

though the flag was set. 

Press CONTINUE. The test will proceed from the point of error. 

Errors E30-E33 will always halt, regardless of the setting of ACS-.. 

E30 

RRB DID NOT CLEAR AC. 

00337 

117717 

The AC was not cleared when the RRB instruction was executed. 

Reposition the tape so that the blank section falls under the read heads, and put 

the arm down. Press CONTINUE. The program will try to put the tape in phase 

again. 

E31 

LEADER SIGNAL IS INCORRECT. 

00332 

Word read from tape. 

On both test tapes, the test sequence is preceded by a signal to indicate the end 

of the blank tape section. This signal consists of three binary characters forming 

the word 770000. The program tests to see if the signal read from tape is in fact 

770000. If not, this error occurs. 

Reposition the tape so that the blank section falls under the read heads, and put 

the arm down. Press CONTINUE. The program will try to put the tape in phase 

again. 

E32 

NO INTERRUPT ARER 10 MSEC. IS THE READER ARM DOWN? 

00236 

I/O status 

The time ran out while waiting for a program interrupt from the reader. The 

question in the diagnostic implies that the tape did not move beyond the leader 

signal . If the error occurs after some of the test sequence has been read, it may 

be the result of a failure in the program interrupt control . 

Press CONTINUE. The test will begin again, printing the title and instructions. 
When the computer halts, proceed a? described in Section 4.4.1 or 4.4.2. 



In each of the following errors, no message is printed. Instead, the erroneous and correct 
characters are printed in the columns labeled "READ" and "EXPECTED," respectively. Errors ElO and 
Ell refer to the alphanumeric sequence of the Section 1 test. Errors El 2 and El 3 refer to the binary se- 
quence of the same test. Error E20 refers to Section 2. Each of these errors occurs when the character 
(or word) read from tape does not match that expected by the program. In each case, when the program 
halts, the AC displays as 1 's those bits which do not match. 



Error: 


ElO 


C(MA): 


00166 


Expected Character: 


377 
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Error: 

C(MA): 

Expected Character: 

Error: 
C(MA): 
Expected Word: 

Error: 
C(MA): 
Expected Word: 

Error: 

C(MA): 

Expected Character: 

Recovery: 

Error: 
Message: 

C(MA): 
C(AC): 
Cause: 

Recovery: 



Ell 

00174 

000 

E12 

00211 

770077 

E13 

00217 

007700 

E20 

00443 

1-377 in sequence. 

From each of these error halts, the recovery procedure is the same. Press 
CONTINUE. The test will proceed from the point of error. 

E33 

INTERRUPT FROM SOMETHING OTHER THAN THE READER. CHECK THE 

OTHER DEVICES... I/O STATUS IS IN THE AC. 

00026 

I/O status 

A device other than the reader has caused an interrupt. By examining the I/O 

status, the offending device probably can be identified. 

Press CONTINUE. The test will begin again, printing the title and instructions, 

When the computer halts, proceed as described in Section 4.4.1 or 4.4.2. 



4.6 



5. 



Recovery from Such Errors: 
See Section 4.5, Errors. 

RESTRICTIONS 



If the automatic priority interrupt option is installed, it must be kept off. Since pressing the 
START key disables the API, there should be no interference from that system. 



6. 



DESCRIPTION 



6.1 



Section 1 



The first section of Maindec 710 tests all of the lOTs associated with the tape reader, the 
performance of the program interrupt, and the accuracy of information transfer under conditions of max- 
imum noise. This is obtained by causing the reader to scan a tape punched with alternating characters of 
337 and 000. 

(Reading in binary mode, the alternation is between words of 770077 and 007700.) The test 
tape is produced by an auxiliary punch program. The tape has the following format: 

blank leader (40 lines) 
leader signal 
alphanumeric sequence 
binary sequence 
blank trailer (40 lines) 
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The leader signal consists of the three binary characters 277, 200, 200. The alphanumeric 
sequence consists of 257]0 character pairs of 377 and 000. The binary sequence consists of 258l0 character 
pairs of 277 and 200. The test program keeps a count as it scans the tape. When the end is reached, an 
RSB is given which causes the blank section of the loop to be skipped. The next information read from tape 
is the leader signal, and the test begins again. 

The reading speed is controlled by the setting of AC switches 2-17. If all switches are down, 
there is no delay, and the reader operates at maximum speed, 300 cps. The speed decreases linearly as the 
value of the switches increases. The slowest speed is obtained by a setting of \17711 , corresponding to a 
reading rate of about 3 cps. 

6.1.2 Section 2 

This test operates in exactly the same mariner as Section 1, except that it assumes that all 
lOTs are working (except, possibly, RSA). It does not use the program interrupt. The tape has the same 
leader and trailer format and leader signal . The body of the tape consists of the sequence of character 
codes 1-377 repeated three times. This test is designed to check the accuracy of transmission of every 
possible combination of bits. 

The speed control works exactly the same way as for Section 1 . 

6.2 Examples and/or Applications 

The use of each section of Maindec 710 is evident from the foregoing. It should be noted, 
however, that the speed control can be used to detect certain types of failures. There are certain read- 
ing rates at which the reader is more likely to fail than at others. Using the ACS, the operator can find 
these error points by making the following test. 

Start the program with the loop positioned and ACS2-.17 down. After a short time, raise ACS] 7, 
Gradually decrease the reading speed by putting up each switch in turn from the lowest order to the highest, 
putting the previous switch down as you raise the next. At some point, the reader may fail. You can then 
test reader accuracy at speeds near that point. 

7. METHODS 

See DESCRIPTION 

8. FORMAT (Not Applicable) 

9. EXECUTION TIME 

The time for one pass over a test tape depends on the setting of the AC switches. Reading 
rates can be varied from 3 to 300 cps. 



10. 



10.4 



PROGRAM 



Program Listing 
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/MAINDEC 710: PDP-7 TAPE READER TEST 

/IN TWO SECTIONS: SECTION 1 — MAXIMUM NOISE, RSA, A RSB 

/SECTION 2— NUMERIC SEQUENCE, RSA ONLY 



100/ 




/SECTION 1 PUNCH 


PUNTl, 


TIN 






LAW PIT 


/TITLE 




TSR 






LAM -50 






JMS FEED 


/LEADER 




JMS PULS 


/LEADER SIGNAL 


PALF, 


LAM -400 

DAC APTEM 

LAW 377 

PSA 

PSF 

JMP .-1 


/ALPHA SEQUENCE 




SMAVCMA 


/COUNT? 




ISZ APTEM 


/YES 




JMP .-5 




PUBS, 


LAM-401 
DAC APTEM 
LAW 77 
JMS BIP 


/BINARY SEQUENCE 




SMA CMA 


/COUNT? 




ISZ APTEM 


/YES 




JMP .-3 




PEND, 


LAM-50 
JMS FEED 






JMP RETl 


/GO TEST 


PULS, 




LAW 77 
JMS BIP 
CLA 
JMS BIP 
JMS BIP 
JMP 1 PULS 


/PUNCH LEADER SIGNAL 


ORB-700102 




/OR READER BUFFER INTO AC 


/MAINDEC 710, PAGE 2 




RETT, 


TIN 

LAWRIT 
TSR 

LAW RIP 
TSR 


/SECTION 1 TEST 


A, 


HLTVCLAVCLL 






LAC DCAF 


/INITIALIZE EMO 
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DAC DIPT 

CLOF 

CAF 






JMS REFT 


/TEST FLAGS 


EOT, 


HLTVSTL 


/CAF DIDN'T CLEAR 


INRA, 


JMS TAPH 
LAC DRSA 
DAC DIPT 
LAM -400 
DAC APTEM 


/INITIALIZE TEST 


RALPH, 


JMS DELAY 
RSA 


/ALPHA TEST 


iL 3 


MM-4eeG-^ r< f 


/INTERRUPT TIME 


— -'^JMS TESC 






377 


/ARGUMENT 


/<^6 ElO, 


HLTVSTL 
JMS DELAY 
RSA 


/BAD BITS IN AC ON HALT 


nj_ 


JMS TESC 
000 




Ell, 


HLT STL 
ISZ APTEM 
JMP RALPH 






SKP 


/GET AROUND ENTRY 


200/ 


JMP PUNT2 


/ENTRY FOR SECTION 2 


INREB, 


ISZ DIPT 
LAM -125 
DAC APTEM 


/CHANGES TO RSB 


10^ BIRD, 


JMS DELAY 
RSB 


/BINARY TEST 


2 c 4^^_^ 


„ bAM-UOOOl^ Ci,^- 
JMS TESC 
770077 


/BINARY MODE TIMER 


%n E12, 


HLTV STL 
JMS DELAY 
RSB 




2 ^ '"^ 


%AM-440OO^ r^ 






"JMS TESC 
007700 




E13, 


HLTVSTL 




/MAINDEC 71C 


): PAGES 






ISZ APTEM 


/FINISHED? 




JMP BIRD 


/NO 




JMP INRA 


/YES. ROUND AGAIN 


TESC, 





/COMPARING SUBROUTINE 




DAC PICT 


/SET TIMER 
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JMS REFT 




E03, 


HLTVSTL 
ION 


/FLAG STILL SET 




ISZ PICT 


/TIME TILL BREAK 




JMP .-1 




ER32, 


lORS 

JMS RACS 
LAW EM32 


/NO BREAK 




NOP 


/ALWAYS HALTS 


E32, 


HLTVSTL 
JMP RETl 




IRET, 


lORS 
RAL 


/RETURN HERE FROM BRE 




SMA RAR 


/IS THE FLAG CLEAR? 




JMP COMC 


AES. 




JMS RACS 


/NO. 




LAWEM04 




E04, 


HLTVSTL 




COMC, 


LAC AP2 






SAD 1 TESC 


/COMPARE CHARACTERS 




JMP TOUT 


/OK. 


ERl, 


JMS RACS 
JMP ERP 
JMP El H 


/BAD. 


TOUT, 


ISZ TESC 
ISZ TESC 
JMP 1 TESC 


/GO AWAY 


EIH, 


LAC 1 TESC 


/ERROR STOP 




XOR AP2 


/EXTRACT BAD BITS 




JMP TOUT+1 




ERP, 


TIN 

LAC AP2 
JMS OPT 
TYT 

LAC 1 TESC 
JMS OPT 
JMP RAC2 


/ERROR PRINT 


STEM, 





/STATUS HOLDER 


PICT, 





/INTERRUPT TIMER 



RACS, 







/SAVE THIS SPACE 



/MAINDEC 710, PAGE 4 

/INTERRUPT SERVICES AND OTHERS 

0/ 

lORS 
RAL 
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SMAV RAR 


/IS READER FLAG SET? 




JMP ER33 


/NO 




RSF 


/TEST SKIP 




JMP EROS 


/FAILED 




JMP lAWAY 




20/ 




HLT 
JMP .-1 


/CALCATCHER 


ER33, 


JMS RACS 
LAW EM33 


/SPURIOUS INTERRUPT 




NOP 


/ALWAYS HALTS 


E33, 


HLTVSTL 
JMP RETl 




EROS, 


JMS RACS 
LAW EMOS 


/RSF FAILED 


EOS, 


HLTVSTL 




lAWAY, 


RRB 
DAC AP2 


/OK, READ BUFFER 




JMP IRET 


/GO COMPARE 


REFT, 




lORS 

RAL 


/FLAG TEST SUBROUTINE 




SPAVRAR 


/IS FLAG STILL SET? 




JMP ERO 


AES 




RSF 


/NO. TEST SKIP 




JMP REO 


/OK. GO AWAY 


ER02, 


JMS RACS 
LAW EM02 


/SKIPPED ON CLEAR FLAG 


E02, 


HLTVSTL 
JMP REO 




ERO, 


JMS RACS 
JMP EOP 


/FLAG NOT CLEARED 




JMP 1 REFT 


/IF STOPPING 


REO, 


ISZ REFT 
JMP 1 REFT 


/IF NOT 


EOP, 


LAC DIPT 
TY3 

LAW EMO 
JMP RAC2-1 


/PRINT DIAGNOSTIC 


/MAINDEC 710, PAGE 5 




/VARIOUS KINDS OF SUBROUTINES 




RACS/ 





/DIAGNOSTIC HANDLER 




DAC STEM 


/SAVE STATUS 




lOF 






LAS 
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RAC2, 



TAPH, 



ER31, 

E31, 
ER30, 

E30, 
FEED, 



RAL 


SPAVRAR 


JMP R AC 2+1 


TIN 


XCT 1 RACS 


TSR 


LAS 


SPA 


ISZ RACS 


ISZRACS 


CAP 


LAC STEM 


JMP 1 RACS 





RSB 


RSF 


JMP .-1 


CLC 


RRB 


SAD (-0 


JMP ER30 


SAD (770000 


JMP 1 TAPH 


JMS RACS 


LAW EM31 


NOP 


HLTVSTL 


JMP TAPH+1 


JMS RACS 


LAW EM30 


NOP 


HLTVSTL 


JMP TAPH+1 





DAC APTEM 


PSA+10 


PSF 


JMP .-1 


ISZ APTEM 


JMP .-4 


JMP 1 FEED 



/PRINT MESSAGE? 
/NO 

/LAW OR JMP 
/IF LAW 

/STOP FOR ERROR? 
/NO 

/CLEARS HANGING TTY FLAGS 



/TAPE PHASER 

/SKIP BLANK TAPE, PICK UP LEAD SIGNAL 



/TO TEST RRB 

/DID AC CLEAR? 

/NO 

/IS SIGNAL OK? 

/YES, PROCEED 

/NO 

/ALWAYS HALTS 

/TRY AGAIN 
/RRB FAILED 

/THIS ONE ALWAYS STOPS, TOO 

/TRY AGAIN 
/TAPE BLANKER 



/MAINDED710: PAGE 6 
/SECTION 2 — NUMERIC SEQUENCE 



PUNT2, 



TIN 

LAW P2T 
TSR 
LAM -50 



TEST 

/SECT. 2 PUNCH 
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JMS FEED 
JMS PULS 




PUSE, 


LAM -2 






DAC APTEM 


/THREE CYCLES OF 1-377 




LAM -376 






DAC PIX 




PIX, 


LAM 
PSA 
PSF 
JMP .-1 


/INDEX AND LOAD AC 




ISZ PIX 


/END OF CYCLE 




JMP PIX 


/NO 




ISZ APTEM 


/YES - END OF SEQUENCE? 




JMP PIX-2 


/NO 




LAM -50 


AES 




JMS FEED 




RET2, 


TIN 

LAW R2T 
TSR 

LAW RIP 
TSR 
lOF 


/SECTION 2 TEST 


B, 


HLTVCLAVCLL 






JMS TAPH 


/TRY PHASING TAPE 




LAM -2 


/SET UP COUNTERS 




DAC AP2 




NESQ, 


LAM -376 
DAC APTEM 
JMS DELAY 




RECH, 


RSA 
RSF 
JMP .-1 






LAM -377 


/777400 IN AC 




ORB 


/ORS READER BUFFER INTO AC 




SAD APTEM 


/COMPARE RESULT 




JMP REX 


/OK 


ER20, 


JMS RACS 
JMP E20P 
JMP E20H 


/NO GOOD 


/MAINDEC 71 C 


1: PAGE 7 




REX, 


ISZ APTEM 


/END OF CYCLE? 




JMP RECH-1 


/NO 




ISZ AP2 


/YES. END OF TAPE? 




JMP NESQ 


/NO 




JMP B+1 


/YES. GO ROUND AGAIh 


E20P, 


TIN 

LAC STEM 







AND (377 




JMS OPT 




TYT 




LAC APTEM 




AND (377 




JMS OPT 




JMP RAC2 


E20H, 


XOR APTEM 


E20, 


HLTVSTL 




JMP REX 


DELAY, 







LAS 




AND {\7ni7 




CMA 




DAC AP3 




ISZ AP3 




JMP .-1 


DLOUT, 


JMP 1 DELAY 


EOP+4/ 




OTY, 







TLS 




TSF 




JMP .-1 




JMP 1 OTY 


APTEM, 





AP2, 





APS, 





BIP, 







PSB 




PSF 




JMP .-1 




JMP 1 BIP 
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/EXTRACT CHARACTER 



/AC SHOWS WRONG BITS 
/SPEED CONTROL 



/PRINT A CHARACTER 



/ALL PURPOSE TEMPORARY STORAGE 
/PUNCH BINARY CHARACTER 



/MAINDEC 710: PAGES 

/ORACLES, WARNINGS, AND ANSWERS 

DLOUT+1/ 

PIT, TEXT -SECTION 1 PUNCH. 

RIT, 

P2T, 

R2T, 



TEXT -SECTION 1 TEST. 
TEXT -SECTION 2 PUNCH. 
TEXT -SECTION 2 TEST. 



RIP, 



TEXT 



/POSITION TAPE IN READER. 



ACSO DOWN FOR HALTS, UP FOR NONE. 
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ACS! DOWN FOR PRINTING, UP FOR NONE 
ACS2-17 FOR SPEED CONTROL. 

CHARACTER 
READ EXPECTED 

DCAF, FLEX CAF /DIPT SETUPS 

DRSA, FLEX RSA 

DIPT, 

EMO, TEXT -DID NOT CLEAR FLAG. 

EM02, TEXT -RSF SKIPPED ON CLEARED FLAG. 

EM04, TEXT -RRB DID NOT CLEAR FLAG. 

EM05, TEXT -RSF DID NOT SKIP WHEN FLAG WAS SET. 

EM30, TEXT -RRB DID NOT CLEAR AC. 

EM31, TEXT -LEADER SIGNAL IS INCORRECT. 

EM32, TEXT -NO INTERRUPT AFTER 10 MSEC. 

IS THE READER ARM DOWN? 

EM33, TEXT -INTERRUPT FROM SOMETHING OTHER THAN THE READER, 

CHECK THE OTHER DEVICES. . .I/O STATUS IS IN THE AC. 

START 

/TELETYPE OUTPUT PACKAGE 8-13-63 

XIT=LAC-JMS TTAB=10 

/TYPE 1 CHARACTER FROM AC BITS 12-17 

TY1=JMS . 



DAC TY-^ SVAC 

RAR 

JMSTYIA 

XIT TYl 

TYEXIT 

/TYPE 1 CHARACTER (5 BIT), LINK INDICATES CASE 

TYl A, 

DACT-^EMY 

AND (37 

SNA 

JMP TY2 

703301 

SKP 

JMP TYl B 
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LAC OCL 
SZL 

LAC OCU 
SAD OCS 
JMP . 3 
JMS OTY 
DAC OCS 
LAC TEMY 
JMS OTY 
ISZ T BC 
TY2, LAC TEMY 

JMP I TYIA 

/TYPE 3 CHARACTERS FROM AC 0-5, 6-11, 12-17 RESPECTIVELY 

TY3=JMS . 



DAC TYSVAC 
JMS RL6 
JMS TYIA 
JMS RL6 
JMS TYIA 
JMS RL6 
JMS TYIA 
XITTY3 
TYEXIT 

/TELETYPE OUTPACKAGE PAGE 2 

/TYPE A CARRIAGE RETURN, AND LINE FEED 



TCR=JMS . 











DAC TYSVAC 




703301 




SKP 




JMP TCRA 




LAW 2 




JMS OTY 




LAW 10 




JMS OTY 




DZM TBC 




XITTCR 




TYEXIT 


/TYPE A SPACE 




TSF^JMS . 











DAC TYSVAC 




LAW 4 




703301 




SKP 
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LAW 240 
JMS OTY 
ISZ TBC 
XITTSP 
TYEXIT 

/TYPE A TABULATION 

TYT=JMS . 



DAC TYSVAC 

LAC TBC 

ADD 

TAD (-TTAB 

SMA 

JMP .-2 

TAD (-1 

DAC TEMYl 

LAC TYSVAC 

TSP 

ISZ TEMYl 

JMP .-2 

XIT TYT 

TYEXIT 

/TELETYPE OUTPUT PACKAGE - PAGE 3 

/TYPEWRITER INITIALIZE 

TIN=JMS . 



DAC TYSVAC 

LAC OCL 

DAC OCS 

703301 

SKP 

JMP . 3 

TLS 

JMS OTY 

LAC TYSVAC 

TCR 

JMP I TIN-JMS 

AYPE the digit in the AC 

TD1GIT=JMS . 



DAC TEMYl 

AND (17 

ADD (LAC NCT 

DAC . 1 

XX 

TYl 
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LAC TEMYl 

JMP I TDIGIT-JMS 

/TYPE A STRING OF CHARACTERS 

TSR=JMS . 



DAC T-^EMYl 

LAC I TEMYl 

TY3 

AND (76 

ISZ TEMYl 

SZA 

JMP TSR+2-JMS 

LAC TEMYl 

JMP I TSR-JMS 

/EXIT AFTER RESTORING AC AND LINK 

TYEXIT=JMP . 

DAC TEMY 

RAL 

LAC TYSVAC 

JMP I TEMY 

/TELETYPE OUTPUT PACKAGE - PAGE 4 

/ROTATE LEFT 6 



RL6, 
RTL 
RTL 
RTL 
JMP 1 RL6 










/TABLE OF DIGITS 










NCT, 33 
3 


73 
53 


63 
71 


41 
31 


25 
7 


/CASE STORAGE 










OCU, 33 
OCL, 37 
OCS, 











/END OF TELETYPE OUTPUT PACKAGE 

/PDP-4/7 ADDENDUM 

TYIB, ADD (LAC BTATAB-1 

DAC . 1 

XX 

SZL 

JMPTYIC 
TYID, JMS OTY 

JMP TY2-1 
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TYIC, 


JMS RL6 

RTL 

RTL 

JMP TYl D 




TCRA, 


LAW 215 
JMS OTY 
LAW 212 






JMPTCR-JMS 10 


BTATAB, 


265324 


AT 




215215 


/CARRIAGE RETURN 




271317 


AO 




240240 


/SPACE 




243310 


/x,H 




254316 


/,,N 




256315 


/.,M 




212212 


/LINE FEED 




251314 


/),L 




264322 


/4,R 




246307 


/+,o 




27031 1 


/8J 




260320 


/0,P 




272303 


/:,C 




273326 


/;,V 




263305 


/3,E 




242332 


/$,z 




244304 


/z>D 




277302 


/?,B 




211323 


/BELLAS 




266331 


/6,Y 




241306 


/t,F 




257330 


/AX 




255301 


A, A 




262327 


/2,W 




247312 


/ ,J 




377377 


/FIGURES 




267325 


/7,U 




261321 


/1,Q 




250313 


/GK 




377377 


/LETTERS 



START 

OCTAL PRINT SUBROUTINE 9-26-62 

/ENTER HERE TO SUPPRESS INITIAL ZEROS 



OPT, 





DAC O-^CN 
LAC OP3 1 
JMS OPl 
JMP I OPT 
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/ENTER HERE TO SUPPRESS INITIAL ZEROS WITH SPACES 



OPS, 





DAC OCN 
LAC (JMP OPS 
JMS OPl 
JMP I OPS 



/PRINT SUBROUTINE 



OPl, 









DAC OPM 3 




LAM -5 




DAC O-^PC 




LAC (SZA 




DAC OPM 


OPO, 


LAC OCN 




RCL 




RTL 




DAC OCN 




RAL 




AND (7 


OPM, 


XX 




JMP OP2 




ISZ OPC 




XX 




TDIGIT 




JMP 1 OPl 


OP2, 


TDIGIT 




LAC OPM 1 




ISZ OPC 




JMP OPO-1 




JMP 1 OPl 


OP3, 


TSP 




JMP OPO 


/END OCTAL PRINT SUBROUTINE 


START 




A 


145 


APTEM 


67 


AP2 


70 


AP3 


71 


B 


403 


BIP 


72 


BIRD 


204 


BTATAB 


1177 


COMC 


247 


DCAF 


571 



DELAY 


445 


DIPT 


601 


DLOUT 


454 


DRSA 


600 


EMO 


602 


EM02 


612 


EM04 


625 


EM05 


636 


EM30 


653 


EM31 


663 
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EM32 


675 


EM33 


720 


ERP 


263 


ERO 


SI 


ER02 


4S 


EROS » 


30 


ERl 


2S2 


ER20 


421 


ER30 


334 


ER3] 


327 


ER32 


232 


ER33 


23 


EOP 


56 


EOl 


1S3 


E02 


47 


E03 


226 


E04 


246 


EOS 


32 


EIH 


260 


ElO 


166 


Ell 


174 


E12 


211 


E13 


217 


E20 


443 


E20H 


442 


E20P 


431 


E30 


337 


E31 


332 


E32 


236 


E33 


26 


FEED 


341 


lAWAY 


33 


INRA 


1S4 


INREB 


201 


IRET 


240 


NCT 


1143 


NESQ 


407 


OCL 


1156 


OCN 


1302 


OCS 


11S7 


OCU 


IISS 


OPC 


1301 


OPM 


1264 


OPS 


1243 


OPT 


1236 


OPO 


12S6 


OPT 


12S0 


OP2 


1272 


OP3 


1277 


ORB 


700102 



OTY 


62 


PALF 


106 


PEND 


126 


PICT 


273 


PIX 


363 


PUBS 


117 


PULS 


131 


PUNTl 


100 


PUNT2 


3S1 


PUSE 


3S7 


PIT 


4SS 


P2T 


472 


RACS 


274 


RAC2 


306 


RALPH 


161 


RECH 


412 


REFT 


36 


REO 


S4 


RETl 


140 


RET2 


37S 


REX 


424 


RIP 


507 


RL6 


1136 


RIT 


464 


R2T 


501 


STEM 


272 


TAPH 


315 


TBC 


1304 


TCR 


101026 


TCRA 


1173 


TDIGIT 


101107 


TEMY 


1305 


TEMYl 


1303 


TESC 


223 


TIN 


101073 


TOUT 


255 


TSP 


101042 


TSR 


101120 


TTAB 


10 


TYEXIT 


601132 


TYSVAC 


1306 


TYT 


101054 


TYl 


100762 


TYIA 


770 


TYIB 


1160 


TYIC 


1167 


TYID 


1165 


TY2 


1012 


TY3 


101014 


XIT 


100000 



TTAB 


10 


ER33 


23 


E33 


26 


ER05 


30 


EOS 


32 


lAWAY 


33 


REFT 


36 


ER02 


45 


E02 


47 


ERO 


51 


REO 


54 


EOP 


56 


OTY 


62 


APTEM 


67 


AP2 


70 


AP3 


71 


BIP 


72 


PUNTl 


100 


PALF 


106 


PUBS 


117 


PEND 


126 


PULS 


131 


RETl 


140 


A 


145 


EOl 


153 


INRA 


154 


RALPH 


161 


ElO 


166 


Ell 


174 


INREB 


201 


BIRO 


204 


E12 


211 


E13 


217 


TESC 


223 


E03 


226 


ER32 


232 


E32 


236 


IRET 


240 


E04 


246 


COMC 


247 


ER1 


252 


TOUT 


255 


EIH 


260 


ERP 


263 


STEM 


272 


PICT 


273 


RACS 


274 


RAC2 


306 


TAPH 


315 


ER31 


327 
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E31 


332 




ER30 


334 




E30 


337 




FEED 


341 




PUNT2 


351 




PUSE 


357 




PIX 


363 




RET2 


375 




B 


403 




NESQ 


407 




RECH 


412 




ER20 


421 




REX 


424 




E20P 


431 




E20H 


442 




E20 


443 




DELAY 


445 




DLOUT 


454 




PIT 


455 




RIT 


464 




P2T 


472 




R2T 


501 




RIP 


507 




DCAF 


377 




DRSA 


600 




DIPT 


601 




EMO 


602 




EM02 


612 




EM04 


625 




EM05 


636 




EM30 


653 




EM31 


663 




EM32 


675 




EM33 


720 




TYIA 


770 




TY2 


1012 




RL6 


1136 




NCT 


1143 




OCU 


1155 




OCL 


1156 




OCS 


1157 




TYIB 


1160 




TYID 


1165 




TYIC 


1167 




TCRA 


1173 




BTATAB 


1177 




OPT 


1236 




OPS 


1243 




OPl 


1250 




OPO 


1256 
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OPM 


1264 


OP2 


1272 


OP3 


1277 


OPC 


1301 


OCN 


1302 


TEMYl 


1303 


TBC 


1304 


TEMY 


1305 


TYSVAC 


1306 


XIT 


100000 



TYl 


100762 


TY3 


101014 


TCR 


101026 


TSP 


101042 


TYT 


101054 


TIN 


101073 


TDIGIT 


101107 


TSR 


101120 


TYEXIT 


601132 


ORB 


700102 



1 1 . DIAGRAMS (Nof AppI Icabie) 

12. REFERENCES (Not Applicable) 



